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DIRECTORY 

StringDefs: FROM "stringdefs" USING [Substring]; 

CommandDefs: DEFINITIONS - 

BEGIN 

CommandName: TYPE = {displayComs, sComs, reset, cComs , proceed, listComs, 
breakComs, traceComs, octalComs, interpretComs , quit, find, userscreen, 
worry, ftp, userProc, aComs , debug, pret, comment, kin, call, addr, ptr, 
array, deref, exp, string, ascii, attach, attachl, attachS, read, write, 
setBreak, clearBreak, clearComs, case, coremap, current, start, setComs, 
module, frame, var, eval , stack, gft, process , queue, config, moduleCtx, 
octalCtx, processCtx, rootCtx, break, trace, all, entry, exit, modBr, 
procBr, configs, processes, breaks, traces, entries, exits}; 

ErrorCode: TYPE ■ {naworry, options, retry, notframe, notgframe, 
notprocess, invalidlD}; 

SignalCode: TYPE « {del, aborted, nosymtab, toolong, file, compress, string, 
num, notallowed, resume, clobfr, null, ngf, nimage, version, npsb, cloba, 
notloaded}; 

IDCode: TYPE « {source, condition, frame, gframe, file, proc, mod, addr, 
type, bytepc, start, num, dashes, gets, del, confirm, off, on}; 

FTPCode: TYPE ■ {notinstal 1 ed, open, dir, retrieve, store, close, freepgs, 
pgs, delete, notfound, deleted, notdeleted, dump, list, load, quit, chat, 
ques}; 

ICode: TYPE ■ {type, exp, ni, char, num, bracket}; 

~-util ities 

WriteCommandString: PROCEDURE [n: CommandName]; 

GetCommandString: PROCEDURE [n: CommandName, command: StringDefs. Substring]; 

WriteErrorString: PROCEDURE [n: ErrorCode]; 

WriteSignalString: PROCEDURE [n: SignalCode]; 

WritelDString: PROCEDURE [n: IDCode]; 

WriteFTPString: PROCEDURE [n: FTPCode]; 

WritelString: PROCEDURE [n: ICode]; 

END.. 


